home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 26 / CU Amiga Magazine's Super CD-ROM 26 (1998)(EMAP Images)(GB)[!][issue 1998-09].iso / CUCD / Utilities / XPK / Developers / Include / Modula2 / XpkSubL.def < prev   
Text File  |  1998-02-08  |  1KB  |  30 lines
  1. (*#-- BEGIN AutoRevision header, please do NOT edit!
  2. *
  3. * $VER: XpkSubL.def 1.0 (27.01.98)
  4. * Auth: T.B. (tonyiommi@geocities.com)
  5. *
  6. * Desc: This is the Libcall-Module Glue example you have to use, if you want to write your own
  7. *       Sublibs. See also the RLEN.mod example (coming soon, by me).
  8. * Reqs: AMIGA OS 2.0
  9. * Lang: MODULA-2
  10. * Comp: Cyclone © by M. Timmermans
  11. * 
  12. *-- END AutoRevision header --*)
  13.  
  14. DEFINITION MODULE XpkSubL{"xyz.library",1}; (*$ Implementation- *)
  15.  
  16. FROM ExecD IMPORT LibraryPtr;
  17. FROM XpkSubD IMPORT InfoPtr,SubParamsPtr;
  18. IMPORT Reg;
  19.  
  20. CONST XpkSubName="xpksub.library"; XpkSubMinVersion=1;
  21. VAR XpkSubBase:LibraryPtr;
  22.  
  23. PROCEDURE PackerInfo    ():InfoPtr;                             CODE -1EH;
  24. PROCEDURE PackChunk     (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -24H;
  25. PROCEDURE PackFree      (pars{Reg.A0}:SubParamsPtr);            CODE -2AH;
  26. PROCEDURE PackReset     (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -30H;
  27. PROCEDURE UnpackChunk   (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -36H;
  28. PROCEDURE UnpackFree    (pars{Reg.A0}:SubParamsPtr);            CODE -3CH;
  29.  
  30. END XpkSubL.